home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PET / S-Super PET / (s)t4.d64 / FACT.PAS < prev    next >
Pascal/Delphi Source File  |  2009-01-18  |  277b  |  20 lines
  1.  
  2. program main( output );
  3.  
  4.   var
  5.     n : integer;
  6.  
  7.   function fact( n : integer ) : integer;
  8.     begin
  9.       if( n <= 1 )then
  10.         fact := 1
  11.       else
  12.         fact := n * fact( n-1 );
  13.     end;
  14.  
  15.   begin
  16.     for n := 0 to 7 do
  17.       writeln( n:2, '! = ', fact( n ) );
  18.   end.
  19.  
  20.